﻿Public Class frmError

    Public Sub SetMessage(ByVal strMessage As String)
        Me.StartPosition = FormStartPosition.CenterParent
        lblMsg.Text = strMessage
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncontinue.Click
        Me.Close()
    End Sub

    Private Sub btnDetails_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetails.Click
        Select Case btnDetails.Text
            Case "Detail>>"
                Me.Height = 350
                Me.Panel1.Height = 200
                btnDetails.Text = "<<Detail"

            Case "<<Detail"
                Me.Height = 200
                Me.Panel1.Height = 50
                btnDetails.Text = "Detail>>"

        End Select

    End Sub

    Private Sub frmError_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btnDetails_Click(sender, e)
    End Sub

End Class